home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Util / U-V / UseLogger.cpt / UseLog / card_5206.txt < prev    next >
Encoding:
Text File  |  1987-10-06  |  2.9 KB  |  148 lines
  1. -- card: 5206 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2768
  5. -- name: Script Card 3
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=12 top=53 right=333 bottom=462
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Script Segment
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=431 top=21 right=51 bottom=467
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 1014 / 1014
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: New Button
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   go to prev
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 6 (field)
  42. -- low flags: 01
  43. -- high flags: 0002
  44. -- rect: left=12 top=21 right=49 bottom=218
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 2
  49. -- text size: 20
  50. -- style flags: 0
  51. -- line height: 26
  52. -- part name: Title
  53.  
  54.  
  55. -- part 7 (button)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=466 top=50 right=81 bottom=503
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 1012 / 1012
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: 
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   go to card 1
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 8 (field)
  75. -- low flags: 01
  76. -- high flags: 0002
  77. -- rect: left=224 top=30 right=49 bottom=434
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 4
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Where
  86.  
  87.  
  88. -- part 10 (button)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=466 top=21 right=51 bottom=503
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 1013 / 1013
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: New Button
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   go to next
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 11 (button)
  108. -- low flags: 00
  109. -- high flags: 0000
  110. -- rect: left=466 top=21 right=51 bottom=503
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 1013 / 1013
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: New Button
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   go to next
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part contents for card part 6
  127. ----- text -----
  128. Script Segment 3
  129.  
  130. -- part contents for card part 1
  131. ----- text -----
  132.   -- UseLog Begin
  133.   -- Use Log Resume Logger
  134.   -- Rich Taylor, 10/5/87
  135.   set lockScreen to true
  136.   push card
  137.   go to stack "UseLog"
  138.   put return after last line of card field "Log" of card "Log Card"
  139.   put "Resume:" & the date & "|" & the long time¬¨
  140.   into last line of card field "Log" of card "Log Card"
  141.   pop card
  142.   set lockScreen to false
  143.   -- UseLog End
  144.  
  145.  
  146. -- part contents for card part 8
  147. ----- text -----
  148. before "  pass resume"